home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
thor
/
thor24arexx.lha
/
GoldED
/
MakeCool.ged
< prev
next >
Wrap
Text File
|
1996-11-11
|
969b
|
47 lines
/* MakeCool.ged by Troels Walsted Hansen
** $VER: MakeCool.ged v1.00 (09.06.95)
**
** Make text eLiTe cool using an external program. Known to work with
** "Coolify" by (Çøø£iF¥ 0.15ß by Øystein Larsen) and "Cool" (TEXT
** COOLER v1.0 by DDT of the HALF-BRAINS TEAM).
*/
cooler = "Coolify"
/* needs GoldED functions */
options results
if(substr(address(),1,6) ~= "GOLDED") then
do
say "This script should only be started from inside GoldED."
exit 20
end
else gedport = address()
/* save marked text block to file and delete it */
address(gedport)
SAVE BLOCK NAME '"T:UncoolTempFile"'
if(rc ~= 0) then exit
/* make text c00l */
address command
cooler || " >nil: t:UncoolTempFile t:CoolTempFile"
if(rc ~= 0) then exit
"delete >nil: t:UncoolTempFile"
/* delete uncool, and include c00l text */
address(gedport)
DELETE BLOCK
if(rc ~= 0) then exit
OPEN NAME '"t:CoolTempFile"' FAST INSERT
if(rc ~= 0) then exit
address command
"delete >nil: t:CoolTempFile"